home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
cstdio.arc
/
SRC.ARC
/
CONIO.A
< prev
next >
Wrap
Text File
|
1985-05-17
|
834b
|
48 lines
; conio.a - console I/O.
; (C) Copyright 1984, 1985 Gregory R. Mansfield - All Rights Reserved.
; G. R. Mansfield. 84/11/17.
; Ver 1.0-5517.
include "include/msdos.ah"
dseg
c db 0 ; character from csts
cseg
public ci_
public co_
public csts_
; char ci() /* return keyboard character */
ci_: mov al,c ; check character
or al,al
jnz cni1 ; if set
mov ah,FR_DCI ; request input
int I_FCN
cni1: mov ah,0 ; clear character from csts
mov c,ah
ret
; char csts() /* return console status */
csts_: mov ah,FR_DCO ; direct console I/O
mov dl,0FFh ; status request
int I_FCN
mov c,al ; save character
xor ah,ah
ret
; co(c) /* write character to console */
; char c;
co_: mov bx,sp ; character
mov dl,[bx+2]
mov ah,FR_DCO ; direct console I/O
int I_FCN
ret